home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
dspdbd.arc
/
DSPDBD2.RPG
< prev
next >
Wrap
Text File
|
1991-12-04
|
3KB
|
70 lines
/TITLE Display data base file directory. CMD(DSPDBD)
FDSPDBDP O E 69 PRINTER
FQAFDMBR IF E DISK
E FL 21 01 QUALIFIED NAME
/COPY QRPGSRC,PSDS
C Z-ADD0 X 70
C MOVE '1' ON 1
C MOVE '0' OFF 1
C MOVE ON *IN69
/SPACE
C READ QAFDMBR LR
C *INLR DOWEQOFF
C MOVEA*BLANKS FL
C MOVEAMBFILE FL,1
C Z-ADD1 X
C *BLANK LOKUPFL,X 51 FIRST BLANK
C MOVE '.' FL,X
C ADD 1 X
C MOVEAMBLIB FL,X QUALIFY LIBRARY
C MOVEAFL FILIB
/SPACE
C *IN69 IFEQ ON
C MBLIB ORNE PRVLIB
C WRITEHEADER
C MOVE OFF *IN69
C END
/SPACE
C *LIKE DEFN MBLIB PRVLIB
C MOVE MBLIB PRVLIB
/SPACE
C MOVE *BLANKS FILE
C MOVELMBFILE FILE
C MOVE MBFCDT CRTDAT
C MOVE MBFCTM CRTTIM
C MOVE MBCHGD CHGDAT
C MOVE MBCHGT CHGTIM
C MOVE MBSAVD SAVDAT
C MOVE MBSAVT SAVTIM
C MOVELMBTXT TEXT
C WRITEDETAIL1
C SUB 1 MBNOMB
C *LIKE DEFN MBNOMB MBRS
C Z-ADDMBNOMB MBRS
/SPACE
C DO MBRS
C MOVE *BLANKS FILE
C MOVE MBNAME FILE
C MOVE MBCDAT CRTDAT
C MOVE MBCTIM CRTTIM
C MOVE MBCHGD CHGDAT
C MOVE MBCHGT CHGTIM
C MOVE MBSAVD SAVDAT
C MOVE MBSAVT SAVTIM
C MOVELMBMTXT TEXT
C *IN69 IFEQ ON
C MBLIB ORNE PRVLIB
C WRITEHEADER
C MOVE OFF *IN69
C END
C MOVE MBLIB PRVLIB
C WRITEDETAIL1
C READ QAFDMBR LR
C END
/SPACE
C READ QAFDMBR LR
C END
/SPACE
C ENDPGM TAG
C MOVE ON *INLR